home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / MINILOOP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-28  |  6.0 KB  |  210 lines
  1. 10  'MINILOOP - Miniature Tuned Loop Antennas - 12 MAR 95 rev. 27 SEP 96
  2. 20  '
  3. 30  'Logarithms with base of 10 are handled as Natural logarithms by
  4. 40  'the computer, therefore natural logarithms are multiplied by
  5. 50  'a factor of .4342945 [ 1/log(10) ]
  6. 60  '
  7. 70  CLS:KEY OFF
  8. 80  IF EX$=""THEN EX$="EXIT"
  9. 90  PROG$="miniloop"
  10. 100  COMMON EX$,PROG$
  11. 110  COLOR 7,0,1
  12. 120  PI=3.14159
  13. 130  U$=STRING$(80,205)
  14. 140  U1$="##,###.####"
  15. 150  U2$="##,###.##"
  16. 160  UL$=STRING$(80,205)
  17. 170  '
  18. 180  '.....start
  19. 190  CLS
  20. 200  COLOR 15,2
  21. 210  PRINT " MINILOOP - Miniature Tuned Loop Antenna";
  22. 220  PRINT TAB(60);"by Harold Kane W2AHW ";
  23. 230  PRINT STRING$(80,32);
  24. 240  LOCATE CSRLIN-1,20:PRINT "Edited for HAMCALC by George Murphy VE3ERP"
  25. 250  COLOR 1,0:PRINT STRING$(80,223);
  26. 260  COLOR 7,0
  27. 270  GOTO 340
  28. 280  '
  29. 290  '.....print data line
  30. 300  LOCATE CSRLIN-1:PRINT "       ";:LOCATE CSRLIN,47:PRINT USING U1$;Z;
  31. 310  PRINT Y$
  32. 320  RETURN
  33. 330  '
  34. 340  '.....start
  35. 350  GOSUB 1790    'diagram
  36. 360  PRINT " Press number in < > to choose standard units of measure:"
  37. 370  PRINT U$;
  38. 380  PRINT "   < 1 >  Metric"
  39. 390  PRINT "   < 2 >  U.S.A./Imperial"
  40. 400  PRINT UL$;
  41. 410  PRINT "     or press < 0 > to EXIT....."
  42. 420  M$=INKEY$:IF M$=""THEN 420
  43. 430  IF M$="0"THEN CLS:RUN EX$
  44. 440  IF M$="1"THEN E$="cm":GOTO 470
  45. 450  IF M$="2"THEN E$="in.":GOTO 470
  46. 460  GOTO 420
  47. 470  PRINT U$;
  48. 480  VIEW PRINT 17 TO 24:CLS:VIEW PRINT:LOCATE 17
  49. 490  GOSUB 1640  'credits
  50. 500  LN=CSRLIN
  51. 510  GOSUB 1970
  52. 520  '
  53. 530  VIEW PRINT 4 TO 24:CLS:VIEW PRINT:LOCATE 4
  54. 540  PRINT " OCTAGONAL LOOP"
  55. 550  PRINT U$;
  56. 560  '
  57. 570  '.....frequency
  58. 580  INPUT " ENTER: Operating frequency...................(MHz)";F
  59. 590  Z=F:Y$=" MHz":GOSUB 290
  60. 600  '
  61. 610  '.....loop dimensions
  62. 620  PRINT " ENTER: Distance between opposite corners.....(";E$;")";
  63. 630  INPUT Z:IF M$="1"THEN X=Z/30.48 ELSE X=Z/12     'X=distance in feet
  64. 640  Z=X*12:Y$=" in. =":GOSUB 290
  65. 650  LOCATE CSRLIN-1,65:PRINT USING U2$;X*30.48;:PRINT " cm"
  66. 660  '
  67. 670  S1=0.765*X*6               'length of each side in inches
  68. 680  S=8*S1/12                 'length of conductor in feet
  69. 690  WD=SQR((X*12)^2-S1^2)     'distance between sides in inches
  70. 700  '
  71. 710  '.....distance between sides
  72. 720  IF S$="3"OR S$="5"THEN 760
  73. 730  PRINT "        Distance between opposite sides.......";USING U1$;WD;
  74. 740  PRINT " in. =";TAB(65);USING U2$;WD*2.54;:PRINT " cm"
  75. 750  '
  76. 760  '.....side of shape
  77. 770  IF S$="3"THEN 810
  78. 780  PRINT "        Length of each side of loop...........";USING U1$;S1;
  79. 790  PRINT " in. =";TAB(65);USING U2$;S1*2.54;:PRINT " cm"
  80. 800  '
  81. 810  '.....conductor length
  82. 820  PRINT "        Length of conductor...................";USING U1$;S;
  83. 830  PRINT " ft. =";TAB(65);USING U2$;S*30.48;:PRINT " cm"
  84. 840  '
  85. 850  '.....area
  86. 860  A=(S/PI/2)^2*PI        'area of a circle
  87. 870  A=2*A*0.947917         'area of an octagon loop over a ground plane
  88. 880  '
  89. 890  '.....conductor diameter
  90. 900  PRINT " ENTER: Diameter of conductor.................(";E$;")";
  91. 910  INPUT Z:IF M$="1"THEN D=Z/2.54 ELSE D=Z
  92. 920  Z=D:Y$=" in. =":GOSUB 290
  93. 930  LOCATE CSRLIN-1,65:PRINT USING U2$;D*2.54;:PRINT " cm"
  94. 940  '
  95. 950  '.....power
  96. 960  INPUT " ENTER: Transmitter power output..............";P
  97. 970  Z=P:Y$=" watts":GOSUB 290
  98. 980  '
  99. 990  '.....radiation resistance
  100. 1000  RR = 3.38*10^-8*(F^2*A)^2
  101. 1010  PRINT "        Radiation Resistance..................";USING U1$;RR;
  102. 1020  PRINT " -"
  103. 1030  '
  104. 1040  '.....loss resistance
  105. 1050  RL = 9.96*10^-4*SQR(F*(S*12/D))
  106. 1060  PRINT "        Loss Resistance.......................";USING U1$;RL;
  107. 1070  PRINT " -"
  108. 1080  '
  109. 1090  '.....efficiency
  110. 1100  E = RR/(RR + RL):E1=E*100
  111. 1110  PRINT "        Efficiency............................";USING U1$;E1;
  112. 1120  PRINT " %"
  113. 1130  '
  114. 1140  '.....inductance
  115. 1150  L = 1.9*10^-8*S*(7.353*LOG((96*S)/(3.14159*D)-6.386)*0.434294)
  116. 1160  UH=L*10^6
  117. 1170  PRINT "        Inductance............................";USING U1$;UH;
  118. 1180  PRINT " >H"
  119. 1190  '
  120. 1200  '.....reactance
  121. 1210  XL = 2*3.14159*F*10^6*L
  122. 1220  PRINT "        Inductive reactance (ohms)............";USING U1$;XL;
  123. 1230  PRINT " -"
  124. 1240  '
  125. 1250  '.....Q
  126. 1260  Q = XL/(2*(RL+RR))
  127. 1270  PRINT "        Q of antenna..........................";USING U1$;Q
  128. 1280  '
  129. 1290  '.....bandwidth
  130. 1300  BW = F*10^3/Q
  131. 1310  PRINT "        Bandwidth.............................";USING U1$;BW;
  132. 1320  PRINT " kHz"
  133. 1330  '
  134. 1340  '.....peak voltage
  135. 1350  VC = SQR(P*XL*Q)*10^-3
  136. 1360  PRINT "        Peak voltage across tuning capacitor..";USING U1$;VC;
  137. 1370  PRINT " kV"
  138. 1380  '
  139. 1390  GAP=VC/21:MPS=1.5*GAP
  140. 1400  PRINT "        Recommended minimum plate spacing.....";USING U1$;MPS;
  141. 1410  PRINT " in."
  142. 1420  '
  143. 1430  PRINT "        Voltage breakdown spacing (approx.)...";USING U1$;GAP;
  144. 1440  PRINT " in."
  145. 1450  '
  146. 1460  '.....tuning capacitor
  147. 1470  C = (1/(2*3.14159*F*10^6*XL))*10^12
  148. 1480  PRINT "        Value of tuning capacitor.............";USING U1$;C;
  149. 1490  PRINT " pF"
  150. 1500  '
  151. 1510  PRINT U$;
  152. 1520  GOSUB 1970
  153. 1530  LOCATE 25,8:COLOR 15,4
  154. 1540  PRINT " Do you want to design a telescoping variable capacitor?    (y/n) ";
  155. 1550  COLOR 7,0
  156. 1560  Z$=INKEY$:IF Z$=""THEN 1550
  157. 1570  IF Z$="n"THEN 180
  158. 1580  IF Z$="y"THEN CLS:CHAIN"capytel"
  159. 1590  GOTO 1560
  160. 1600  GOTO 180
  161. 1610  END
  162. 1620  '
  163. 1630  '.....credits
  164. 1640  TB=8
  165. 1650  PRINT TAB(TB);
  166. 1660  PRINT "This program is based on the paper 'SMALL HIGH EFFICIENCY ANTENNA',"
  167. 1670  PRINT TAB(TB);
  168. 1680  PRINT "by Ted Hart, W5QJR, in the June 1986 issue of QST."
  169. 1690  PRINT
  170. 1700  PRINT TAB(TB);
  171. 1710  PRINT "The program performs all the design calculations pertaining to"
  172. 1720  PRINT TAB(TB);
  173. 1730  PRINT "the original article, which should be consulted for construction"
  174. 1740  PRINT TAB(TB);
  175. 1750  PRINT "details and theory of operation."
  176. 1760  PRINT U$;
  177. 1770  RETURN
  178. 1780  '
  179. 1790  '.....diagram
  180. 1800  T=13:COLOR 0,7
  181. 1810  LOCATE ,T:PRINT "                                                        "
  182. 1820  LOCATE ,T:PRINT "        /SOUNDSOUND<0xB4!>BLOADSOUNDSOUND\ DEFSNGSOUNDSOUND Tuning Capacitor in top element    "
  183. 1830  LOCATE ,T:PRINT "      /          \                                      "
  184. 1840  LOCATE ,T:PRINT "     CALL            CALL                                     "
  185. 1850  LOCATE ,T:PRINT "     CALL            CALL        OCTAGONAL LOOP ANTENNA       "
  186. 1860  LOCATE ,T:PRINT "      \          /  (can be made from copper water pipe)"
  187. 1870  LOCATE ,T:PRINT "        \BSAVESOUNDSOUNDSOUNDSOUNDBSAVE/                                        "
  188. 1880  LOCATE ,T:PRINT "       SOUNDDEFDBLCALLVARPTRSOUNDSOUNDCOLORCALLDEFSNGSOUNDSOUNDSOUNDSOUND Connect coaxial feedline via a     "
  189. 1890  LOCATE ,T:PRINT " 1:1     CLS<0xB4!>  BLOAD'      1:1 balun and a Delta match to     "
  190. 1900  LOCATE ,T:PRINT " balun SOUNDSOUNDDEFDBLCLSBSAVEBSAVE'       bottom corners of loop             "
  191. 1910  LOCATE ,T:PRINT "           CALLCALL                                           "
  192. 1920  LOCATE ,T:PRINT "           CALLCALLDEFSNGSOUND coaxial feedline                        "
  193. 1930  COLOR 7,0
  194. 1940  PRINT U$;
  195. 1950  RETURN
  196. 1960  '
  197. 1970  'HARDCOPY
  198. 1980  GOSUB 2090:LOCATE 25,2:COLOR 14,6
  199. 1990  PRINT " Press 1 to print screen, 2 to print screen & ";
  200. 2000  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  201. 2010  Z$=INKEY$:IF Z$="3"THEN GOSUB 2090:RETURN
  202. 2020  IF Z$="1"OR Z$="2"THEN GOSUB 2090:GOTO 2040
  203. 2030  GOTO 2010
  204. 2040  FOR QX=1 TO 24:FOR QY=1 TO 80
  205. 2050  LPRINT CHR$(SCREEN(QX,QY));
  206. 2060  NEXT QY:NEXT QX
  207. 2070  IF Z$="2"THEN LPRINT CHR$(12)
  208. 2080  GOTO 1980
  209. 2090  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  210.